home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 26.zip / BS1 part 26 / Macro assembler dev syst.adf / include / exec / initializers.i < prev    next >
Text File  |  1985-12-20  |  2KB  |  60 lines
  1.     IFND EXEC_INITIALIZERS_I
  2. EXEC_INITIALIZERS_I SET 1
  3. **********************************************************************
  4. *
  5. * Commodore-Amiga, Inc. -- ROM Operating System Executive Include File
  6. *
  7. **********************************************************************
  8. *
  9. *   Source Control:
  10. *
  11. *  $Header: initializers.i,v 1.0 85/08/28 15:09:29 carl Exp $
  12. *
  13. *  $Locker:  $
  14. *
  15. **********************************************************************
  16.  
  17.  
  18. INITBYTE        MACRO   * &offset,&value
  19.                 DC.B    $e0
  20.                 DC.B    0
  21.                 DC.W    \1
  22.                 DC.B    \2
  23.                 DC.B    0
  24.                 ENDM
  25.  
  26. INITWORD        MACRO   * &offset,&value
  27.                 DC.B    $d0
  28.                 DC.B    0
  29.                 DC.W    \1
  30.                 DC.W    \2
  31.                 ENDM
  32.  
  33. INITLONG        MACRO   * &offset,&value
  34.                 DC.B    $c0
  35.                 DC.B    0
  36.                 DC.W    \1
  37.                 DC.L    \2
  38.                 ENDM
  39.       
  40. INITSTRUCT  MACRO   * &size,&offset,&value,&count
  41.                 DS.W    0
  42.             IFC     '\4',''
  43. COUNT\@         SET     0
  44.             ENDC
  45.             IFNC    '\4',''
  46. COUNT\@         SET     \4
  47.             ENDC
  48. CMD\@           SET     (((\1)<<4)!COUNT\@)
  49.             IFLE    (\2)-255
  50.                 DC.B    (CMD\@)!$80
  51.                 DC.B    \2
  52.            MEXIT
  53.            ENDC
  54.                 DC.B    CMD\@!$0C0
  55.                 DC.B    (((\2)>>16)&$0FF)
  56.                 DC.W    ((\2)&$0FFFF)
  57.            ENDM
  58.  
  59.     ENDC !EXEC_INITIALIZERS_I
  60.